﻿Option Explicit On ' Make sure all items are explicitly declared
Option Strict On ' Be Very Strict about things here!
Namespace ZuneCardr
    ''' <summary>Item</summary>
    ''' <author>Comentsys</author>
    ''' <version>1.0.0</version>
    ''' <created>14th February 2009</created>
    ''' <modified>16th February 2009</modified>
    ''' <remarks>Item</remarks>
    Public Class Item

        ' Private Members

        Private strID As String
        Private imgItem As BitmapImage
        Private strItem As String
        Private blnSelected As Boolean = True

        ' Public Methods

        ''' <summary>Constructor</summary>
        ''' <param name="ImageLarge">Large Image</param>
        ''' <param name="Name">Item name</param>
        Public Sub New(ByVal ID As String, ByVal ImageLarge As BitmapImage, _
                       ByVal Name As String, ByVal Selected As Boolean)
            strID = ID
            imgItem = ImageLarge
            strItem = Name
            blnSelected = Selected
        End Sub

        ''' <summary>ID</summary>
        ''' <returns>Zune ID</returns>
        Public ReadOnly Property ID() As String
            Get
                Return strID
            End Get
        End Property

        ''' <summary>Image</summary>
        ''' <returns>Art Image</returns>
        Public ReadOnly Property ImageLarge() As BitmapImage
            Get
                Return imgItem
            End Get
        End Property

        ''' <summary>Text</summary>
        ''' <returns>Art Text</returns>
        Public ReadOnly Property Name() As String
            Get
                Return strItem
            End Get
        End Property

        ''' <summary>Selected</summary>
        ''' <returns>Selected Value</returns>
        ''' <remarks>Use on ZuneCard Value</remarks>
        Public Property Selected() As Boolean
            Get
                Return blnSelected
            End Get
            Set(ByVal Value As Boolean)
                blnSelected = Value
            End Set
        End Property

    End Class
End Namespace
